home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t3.d64 / grafix instr.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  65 lines
  1. 10 POKE53280,14:POKE53281,1:PRINT"[144]":GOSUB10000
  2. 30 PRINT"    [212]HIS WAS WRITTEN BY  [194]RAD [212]EMPLETON"
  3. 35 PRINT" AND  APPEARED IN THE [202]ULY '83 ISSUE OF"
  4. 37 PRINT" '[212]HE [212]RANSACTOR'.  [201]T  RESIDES IN  LO-"
  5. 40 PRINT" CATIONS  49152-49853 ($[195]000-$[195]2[194][196]) AND"
  6. 50 PRINT" IS NOT RELOCATABLE AS IT IS.":PRINT
  7. 60 PRINT"    [212]HE  FIRST FIFTEEN BYTES ARE  JUMP"
  8. 70 PRINT" VECTORS TO THE  FIVE COMMANDS.   [212]HEY"
  9. 75 PRINT" START  AT 41953.   [211]ETTING  A VARIABLE"
  10. 80 PRINT" LIKE [194][193] [160]([194]ASE [193]DDRESS)  TO THIS MEANS"
  11. 90 PRINT" YOU CAN EASILY ACCESS EACH COMMAND."
  12. 95 PRINT"":GOSUB 9000
  13. 110 PRINT"[160][201]NITIALIZE - [211][217][211] 49153 OR [211][217][211][160][194][193]":PRINT" [163][163][163][163][163][163][163][163][163][163]"
  14. 120 PRINT"[160][198]ORMAT: [211][217][211][160][194][193],[195]0,[195]1,[195]2,[195]3":PRINT
  15. 130 PRINT"[160][211]ETS  UP THE  COLOUR  GRAPHICS  SCREEN"
  16. 140 PRINT" WITH FOUR COLOURS:"
  17. 150 PRINT"[160][160][160][160][195]0:  [194]ACKGROUND"
  18. 160 PRINT"[160][160][160][160][195]1:  [193]LTERNATE [194]ACKGROUND #1"
  19. 170 PRINT"[160][160][160][160][195]2:  [193]LTERNATE [194]ACKGROUND #2"
  20. 180 PRINT"[160][160][160][160][195]3:  [195]OLOUR [206]YBBLES"
  21. 190 PRINT"[160][215]HEN  [211][217][211][160][194][193] IS CALLED,  THE SCREEN IS"
  22. 200 PRINT"[160]CLEARED TO  THE BACKGROUND COLOUR.  [201]N"
  23. 210 PRINT" SUBSEQUENT COMMANDS  THE FOUR  COLOURS"
  24. 220 PRINT" ARE REFERENCED BY THE NUMBERS 0 TO 3.":PRINT"":GOSUB9000
  25. 300 PRINT" [210]EAD [204]OCATION - [211][217][211] 49156 OR [211][217][211] [194][193]+3":PRINT"[160][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  26. 310 PRINT"[160][198]ORMAT:  [211][217][211] [194][193]+3,[210][207][215],[195][207][204]":PRINT
  27. 320 PRINT" [210]EADS THE  GIVEN PIXEL.   [212]HE  COLOUR,"
  28. 330 PRINT"[160]FROM  0 TO 3, WILL  BE STORED IN LOCA-"
  29. 340 PRINT" TION 256 FOR YOU TO [208][197][197][203] AT."
  30. 350 PRINT" [211]ET [208]OINT - [211][217][211] 49159 OR [211][217][211] [194][193]+6":PRINT"[160][163][163][163][163][163][163][163][163][163]"
  31. 360 PRINT"[160][198]ORMAT:  [211][217][211] [194][193]+6,[210][207][215],[195][207][204],[195][207][204][207][213][210]":PRINT
  32. 370 PRINT"[160][211]ETS A PIXEL TO THE SPECIFIED COLOUOR."
  33. 380 PRINT"[160][195]HOOSE COLOUR 0 (BACKGROUND COLOUR) TO"
  34. 390 PRINT"[160]TURN PIXEL OFF.":PRINT:GOSUB9000
  35. 400 PRINT" [210]ESTORE [212]EXT [205]ODE - [211][217][211] 49162 OR"
  36. 405 PRINT"[160][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]   [211][217][211][160][194][193]+9"
  37. 410 PRINT" [198]ORMAT:  [211][217][211][160][194][193]+9:[208][210][201][206][212] "CHR$(34)"[147]"CHR$(34)
  38. 420 PRINT" [199]IVES  BACK THE  NORMAL  TEXT  SCREEN."
  39. 430 PRINT"[160][212]HE  SCREEN  WILL  BE FULL OF  GARBAGE"
  40. 440 PRINT" FROM THE COLOUR GRAPHICS, SO IT'S BEST"
  41. 450 PRINT"[160]TO FOLLOW WITH A CLEAR SCREEN INSTRUC-"
  42. 455 PRINT"[160]TION.
  43. 460 [153]"":[141]9000
  44. 500 [153]" STR$RAW - (null)(null)(null) 49165 OR (null)(null)(null)CLOSEPEEKATN+12":[153]" TAB(TAB(TAB(TAB("
  45. 510 [153]"CLOSEASCORMAT:":[153]"CLOSECLOSECLOSECLOSE(null)(null)(null)CLOSEPEEKATN+12,(null)1,LEN1,(null)2,LEN2,LEN(null)(null)(null)(null)(null)"
  46. 520 [153]"CLOSESTR$RAWS A LINE  FROM THE POINT  (null)1/LEN1 TO"
  47. 530 [153]"CLOSETHE POINT (null)2/LEN2 OF  COLOUR 0 TO 3.  ATNS"
  48. 540 [153]"CLOSEBEFORE, COLOUR 0 ERASES THE LINE."
  49. 550 [153]"":[141]9000
  50. 600 [153]" (null)OADING CHR$RAPHICS (null)OUTINES":[153]"CLOSETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  51. 610 [153]"CLOSECLOSECLOSECLOSE(null)O USE  THESE GRAPHICS  ROUTINES IN"
  52. 620 [153]" YOUR OWN PROGRAMS,  THEY CAN BE LOADED"
  53. 630 [153]" WITH THIS INSTRUCTION AT THE BEGINNING"
  54. 640 [153]" OF THE PROGRAM:"
  55. 650 [153]"   1 RIGHT$ASCCLOSE(null)VALVAL(null) 49152<>96 (null)LEFT$VAL(null)CLOSE"
  56. 655 [153]"     CLOSE (null)(null)ATNSTR$CLOSE"[199](34)"CHR$(null)ATNASCRIGHT$(null)CLOSE(null)(null)(null)(null)"[199](34)",8,1"
  57. 660 [153]"":[141]9000
  58. 700 [153][163]14)"VALND OF (null)EXT"
  59. 8999 [128]
  60. 9000 [153][163]14)"(null)RESS (null)VAL(null)(null)(null)(null)"
  61. 9010 [161]A$:[139]A$[179][177][199](13)[137]9010
  62. 10000 [153]"LOAD CHR$CLOSE(null)CLOSEATNCLOSEASCCLOSERIGHT$CLOSE(null)CLOSECLOSECLOSERIGHT$CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSELENCLOSE(null)CLOSERIGHT$CLOSE(null)CLOSE(null)CLOSE(null)"
  63. 10010 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  64. 10020 [142]
  65.